home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 June
/
CHIP Haziran 2001.iso
/
prog
/
yerli
/
07
/
_SETUP.1
/
Emlak 2000.exe
/
0
/
RCDATA
/
TFORM7
/
TFORM7.txt
< prev
Wrap
Text File
|
1999-02-04
|
4KB
|
176 lines
object Form7: TForm7
Left = 455
Top = 167
BorderStyle = bsNone
Caption = 'Kiralanan Dairelerin Listesi'
ClientHeight = 300
ClientWidth = 300
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 0
Width = 300
Height = 300
AutoSize = True
Picture.Data = {<image000.jpg>}
OnMouseDown = Image1MouseDown
end
object Image2: TImage
Left = 32
Top = 240
Width = 113
Height = 38
Picture.Data = {<image001.jpg>}
Stretch = True
Visible = False
end
object Image3: TImage
Left = 160
Top = 240
Width = 113
Height = 38
Picture.Data = {<image002.jpg>}
Stretch = True
Visible = False
end
object Label1: TLabel
Left = 40
Top = 248
Width = 97
Height = 25
Alignment = taCenter
AutoSize = False
Caption = 'Bul'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnMouseDown = Label1MouseDown
OnMouseUp = Label1MouseUp
end
object Label2: TLabel
Left = 168
Top = 248
Width = 97
Height = 25
Alignment = taCenter
AutoSize = False
Caption = '��k��'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnMouseDown = Label2MouseDown
OnMouseUp = Label2MouseUp
end
object Label3: TLabel
Left = 32
Top = 224
Width = 46
Height = 13
Caption = 'Ad Soyad'
Transparent = True
Visible = False
end
object SpeedButton1: TSpeedButton
Left = 224
Top = 216
Width = 41
Height = 21
Caption = 'T�m�'
OnClick = SpeedButton1Click
end
object DBGrid1: TDBGrid
Left = 32
Top = 64
Width = 241
Height = 145
DataSource = Form6.DataSource1
FixedColor = 8750469
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 'Adsoyad'
Visible = True
end
item
Expanded = False
FieldName = 'Semt'
Visible = True
end>
end
object Edit1: TEdit
Left = 96
Top = 216
Width = 121
Height = 21
TabOrder = 1
OnChange = Edit1Change
end
object DataSource1: TDataSource
DataSet = Query1
Left = 104
Top = 56
end
object Query1: TQuery
Active = True
SQL.Strings = (
'select * from kiralanandaireler')
Left = 144
Top = 56
object Query1Adsoyad: TStringField
FieldName = 'Adsoyad'
end
object Query1Kiralanandno: TIntegerField
FieldName = 'Kiralanandno'
end
object Query1Semt: TStringField
FieldName = 'Semt'
Size = 15
end
object Query1Fiyati: TCurrencyField
FieldName = 'Fiyati'
end
object Query1Malsahibi: TStringField
FieldName = 'Malsahibi'
end
object Query1Telefon: TStringField
FieldName = 'Telefon'
end
object Query1Tarih: TStringField
FieldName = 'Tarih'
Size = 10
end
object Query1Adres: TMemoField
FieldName = 'Adres'
BlobType = ftMemo
Size = 100
end
object Query1Telmalsahibi: TStringField
FieldName = 'Telmalsahibi'
end
end
end